Send meeting invitation to Outlook with LotusScript

Notes/Domino 8 Forum

Subject: Send meeting invitation to Outlook with LotusScript

Feedback Type: Question

Product Area: Designer Client

Technical Area: Application development

Platform: Windows XP client

Release: All

Reproducible: Not applicable

Hi!
How do I send a meeting invitation to Outlook from a Lotuscript agent?

My company has moved to Outlook but we still have Lotus Notes applications. Currently, if I manually create a meeting invitation with myself as a recipient in Lotus Notes I will get an invitation in Lotus Notes and also an invitation in Outlook.

I have an agent that creates a Lotus Notes invitation & calendar entry but when it shows up in Outlook it looks like a memo.

Here's a code snippet. Can anyone tell me what I'm doing wrong? I appreciate any response!

Dim db As New NotesDatabase ("CFCNotes/CFC", "mail\mymail.nsf")
Dim doc As NotesDocument
Set doc = db.CreateDocument

Dim tmpItem As NotesItem

doc.Form = "Appointment"
doc.AppointmentType = "3"
doc.Subject = "TEST MEETING"
doc.ORGTABLE = "C0"
doc.REQUIREDATTENDEES = "testmail@testco.com@testco1.onmicrosoft.com@test" doc.AltRequiredNames = "testmail@testco.com@testco1.onmicrosoft.com@test" doc.INetRequiredNames = "testmail@testco.com"
doc.Recipients="testmail@testco.com@testco1.onmicrosoft.com@test"
doc.Principal=session.UserName
Call doc.ReplaceItemValue ("$PublicAccess", "1")
Call doc.ReplaceItemValue ("$AltPrincipal", session.UserName)
Call doc.ReplaceItemValue ("$BusyName", session.UserName)
Call doc.ReplaceItemValue ("$BusyPriority", "1")

'START TIME
Dim dateTime As New NotesDateTime( Now )
Call dateTime.AdjustMinute( 15)

Set doc.StartDateTime = dateTime
Set doc.StartDate = dateTime
Set doc.StartTime = dateTime
Set doc.CalendarDateTime = dateTime

'END TIME
Dim dateTime2 As New NotesDateTime( Now )
Call dateTime2.AdjustHour(2)
Set doc.EndDateTime = dateTime2
Set doc.EndDate = dateTime2
Set doc.EndTime = dateTime2

Call doc.ReplaceItemValue ("$NoPurge", dateTime2)
doc.SendTo = "testmail@testco.com@testco1.onmicrosoft.com@test"

Call doc.computeWithForm(True, False)
Call doc.save(False, False)
Call doc.send(False)

Thanks for your help!

Feedback number WEBBA7UK85 created by ~Lisa Prefreeplopoopsi on 03/08/2016

Status: Open
Comments: